Programalama > VISUAL BASIC

'bir tane picture yapın ve kodu yapıştırın.
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
 X As Single, Y As Single)
 
    Select Case Picture1.Align
        Case 1
            If Y < 50 Then
                Picture1.Visible = True
            Else
                Picture1.Visible = False
            End If
        Case 2
            If Y > (Me.Height - 50) Then
                Picture1.Visible = True
            Else
                Picture1.Visible = False
            End If
        Case 3
            If X < 50 Then
                Picture1.Visible = True
            Else
                Picture1.Visible = False
            End If
        Case 4
            If X > (Me.Width - 50) Then
                Picture1.Visible = True
            Else
                Picture1.Visible = False
            End If
        Case Else
            If Y > (Picture1.Top) And Y < (Picture1.Top + Picture1.Height) Then
                Picture1.Visible = True
            Else
                Picture1.Visible = False
            End If
    End Select

End Sub