[RESOLVED] picture_mouseMove

i need the picture1_mousemove function only when i click the mnuFileList(index=1), not function when load the form.so, how to improve code below.

VB Code:

Private Sub mnuFileList_Click(Index As Integer)
    If Index = 1 Then
        CommonDialog1.ShowOpen
        Picture1.Picture = LoadPicture(CommonDialog1.FileName)
    ElseIf Index = 2 Then
        Unload Me
    End If
End Sub
 
Private Sub picture1_mousemove(button As Integer, shift As Integer, X As Single, Y As Single)
    Text5.Text = X
    Text6.Text = Y
End Sub

You can set the boolean flag:

VB Code:

Option Explicit
 
[COLOR=Red]Dim blnOkToMove As Boolean[/COLOR]
 
Private Sub Form_Load()
    [COLOR=Red]blnOkToMove = False[/COLOR]
End Sub
 
Private Sub mnuFileList_Click(Index As Integer)
    If Index = 1 Then
        CommonDialog1.ShowOpen
        Picture1.Picture = LoadPicture(CommonDialog1.FileName)
        [COLOR=Red]blnOkToMove = True[/COLOR]
    ElseIf Index = 2 Then
        Unload Me
    End If
End Sub
 
Private Sub picture1_mousemove(button As Integer, shift As Integer, X As Single, Y As Single)
    [COLOR=Red]If Not blnOkToMove Then Exit Sub[/COLOR]
    Text5.Text = X
    Text6.Text = Y
End Sub