Private Sub Form1_MouseMove(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        With Picturebox1
            If e.X < .Left Or e.X > .Left + .Width Or _
                e.Y < .Top Or e.Y > .Top + .Height Then
                oform.Visible = False
            End If
        End With
    End Sub