Modul_2_V_B

Catatan :
perancangan Antarmuka Program dilakukan saat praktek berlangsung


Component yang dibutuhkan :
- 5 Image
- 1 commandButton
- 1 shape
- 1 label
- 1 PictureBox

Source Code:

Option Explicit
Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()
shpkotak.Left = -500
End Sub

Private Sub img1_Click()
shpkotak.Left = img1.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 1"
End Sub

Private Sub img2_Click()
shpkotak.Left = img2.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar2"
End Sub


Private Sub img3_Click()
shpkotak.Left = img3.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 3 "
End Sub


Private Sub img4_Click()
shpkotak.Left = img4.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 4"
End Sub

Private Sub img5_Click()
shpkotak.Left = img5.Left
StatusGB.Cls
StatusGB.Print "Anda memilih : Gambar 5"
End Sub