Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = X Text2.Text = Y End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.CurrentX = X Picture1.CurrentY = Y End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Text3.Text = X Text4.Text = Y Picture1.Line = (Text3.Text) - (Text1.Text) Picture1.Line = (Text5.Text) - (Text2.Text) End Sub Eu queria que ele criasce a linha mais não cria, da erro. alguém pode me ajuda? post ae