Dim St As String MsgBox(St.Length)
Dim drawpen As Pen = Pens.Red Dim ixx1 As Single = 10 Dim iyy1 As Single = 10 Dim ixx2 As Single = 100 Dim iyy2 As Single = 120 Dim g As Drawing.Graphics g = PictureBox1.CreateGraphics g.DrawLine(drawpen, ixx1, iyy1, ixx2, iyy2)
Private Sub PictureBox1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint Dim drawpen As Pen = Pens.Red Dim ixx1 As Single = 10 Dim iyy1 As Single = 10 Dim ixx2 As Single = 100 Dim iyy2 As Single = 120 e.Graphics.DrawLine(drawpen, ixx1, iyy1, ixx2, iyy2) End Sub