[RESOLVED] picture_mouseMove

[junlo]

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.

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