Buat 3 buah command dan beri nama command tersebut:
cmdLogOff,cmdRestart,cmdShutdown
dan ketik source code dibawah ini:
Private Sub cmdLogOff_Click()
'Log off windows XP
Shell "shutdown -l -f -t 0"
End Sub
Private Sub cmdRestart_click()
Shell "shutdown -r -f -t 0"
End Sub
Private Sub cmdShutdown_click()
Shell "shutdown -s -f -t 0"
End Sub
Private Sub Timer1_Timer()
If Label1.Visible = False Then
Label1.Visible = True
ElseIf Label1.Visible = True Then
Label1.Visible = False
End If
End Sub
Private Sub Timer2_Timer()
Label2.Left = Label2.Left + 200
If Label2.Left > 7180 Then
Label2.Left = 0
End If
End Sub
Private Sub Timer3_Timer()
Label3.Left = Label3.Left + 200
If Label3.Left > 7180 Then
Label3.Left = 0
End If
End Sub
Related Post
Visual Basic
- GAME CARD WITH VISUAL BASIC 6
- Using ADO and the ListView control Visual basic 6.0
- Program pengacak no undian pada VB 6
- duplikat gambar dengan visual basic
- Efek Tetesan Air Diatas Monitor dengan visual basic
- Explode form visual basic
- SIMULATION DEACTIVE BOOM VER.1
- Simulasi animasi gerbang otomatis dengan visual basic
- MENAMPILKAN PILIHAN GAMBAR DENGAN VISUAL BASIC
- Animasi Frame image dengan visual basic 6
- Game uji kemampuan otak dengan visual basic 6.0