Programlarinizin içine ek olarak konuldugunda yarar saglayacagini umdugum basit bir kod parçasini sunuyorum
formunuzun load, mouse move ve unload bolumlerine asagidaki kodu ekleyip forecolor ozelligini siyah, border style ozelliginide 4 yapin
Dim i As Integer
For i = 0 To 1000
Form1.Top = Form1.Top + 50
If Form1.Top > 1000 Then
Form1.Top = 100
Form1.Left = Form1.Left + 50
ElseIf Form1.Left > 3000 Then
Form1.Left = Form1.Left - 1000
End If
Next i
If Form1.BackColor = &HFFFF& Then
Form1.BackColor = &HFF00&
ElseIf Form1.BackColor = &HFF00& Then
Form1.BackColor = &HFF&
ElseIf Form1.BackColor = &HFF& Then
Form1.BackColor = &H404040
ElseIf Form1.BackColor = &H404040 Then
Form1.BackColor = &HFFFF&
End If
End Sub
