picturebox.Scale, picturebox.Line в vb.net

Question

У меня есть следующая подфункция, которую мне нужно преобразовать из Vb6 в Vb.net.

Методы .Scale() и .Line() больше не поддерживаются, и я новичок в языке VB, поэтому мне трудно это сделать.

      Public Sub DrawMap(picMap As PictureBox, ByVal x1%, ByVal x2%, ByVal y1%, ByVal y2%)
    Dim i&, temp, lColor As Long
    
    picMap.Scale (x1 - 5, y2 + 5)-(x2 + 5, y1 - 5)
    
    frmMain.picFirst.Scale (x1st - 4, y1st + 4)-(x1st + 4, y1st - 4)
    
    
    
    For i = LBound(arrDrawDie) To UBound(arrDrawDie)
      temp = Split(CStr(arrDrawDie(i)), gDelim)
      If temp(UBound(temp)) = 0 Then lColor = &HC0FFC0 Else If temp(UBound(temp)) = -2 Then lColor = &H8000000A Else lColor = &H8080FF
    
      picMap.Line (temp(0) - 0.4, temp(1) - 0.4)-(temp(0) + 0.4, temp(1) + 0.4), lColor, BF
      If temp(0) > x1st - 4 And temp(1) > y1st - 4 And temp(0) < x1st + 4 And temp(1) < y1st + 4 Then
        
        
        frmMain.picFirst.Line (temp(0) - 0.4, temp(1) - 0.4)-(temp(0) + 0.4, temp(1) + 0.4), &HC0FFC0, BF
      End If
    Next i
    
    picMap.Picture = picMap.Image
    
    
    
    picMap.Line (x1st - 0.4, y1st - 0.4)-(x1st + 0.4, y1st + 0.4), vbBlue, BF
    frmMain.picFirst.Line (x1st - 0.4, y1st - 0.4)-(x1st + 0.4, y1st + 0.4), vbBlue, BF
    
    frmMain.lblFirst.Caption = "X: " + Format(x1st, "000") + "  Y: " + Format(y1st, "000")
    
    
End Sub

Какие инструменты или методы я могу использовать в vb.net, чтобы получить такие же или точные результаты, как в коде vb6.