Bola Pantul di Dot Net

1. Pilih File - New Project - Windows Forms Application

2. Tambahkan Timer pada bagian Components (disini diberi nama Timer1) dan Button (disini diberi nama Button1) pada bagian Common Controls.

3. Klik Timer1 dan ubah atribut Enabled menjadi True pada bagian Properties.

4. Buka Form1.vb dan tambahkan kodingan berikut

Dim x, ax, ay, y As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If x <> Me.Width -Button1.Width Then
ax = -ax
End If

If y <> Me.Height - Button1.Height Then
ay = -ay
End If

x = x + ax
y = y + ay
Button1.Location = New Point(x, y)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 10
y = 10
ax = 10
ay = 10
End Sub

5. Run (tekan F5).

O ya.. Bola pantul disini menggunakan komponen Button. Bisa diganti sama komponen lain misalnya PictureBox atau Label. Semoga bermanfaat .. ^^V

Note : Tutorial menggunakan Visual Basic 2008 Express Edition