Shut down PC

Private Sub Command1_Click()

Shell ("shutdown -s -t 1")

End Sub

Visual Basic 6.0 - CheckBox

Private Sub Check1_Click()

If Check1.Value = 1 Then

Check1.Caption = "On"

Else

Check1.Caption = "Off"

End If

End Sub

Visual Basic 6.0 - ProgressBar

Private Sub Timer1_Timer()

If ProgressBar1.Value = "100" Then

MsgBox "Bitti"

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + 10

End If

End Sub

Visual Basic 6.0 - Web Browser

Private Sub Command1_Click()

WebBrowser1.Navigate = Text1.Text

End Sub

Private Sub Command2_Click()

WebBrowser1.GoHome

End Sub

Private Sub Command3_Click()

WebBrowser1.GoForward

End Sub

Private Sub Command4_Click()

WebBrowser1.GoBack

End Sub

Private Sub Form_Load()

WebBrowser1.GoHome

End Sub

Visual Basic 6.0 - Şifreli Giriş (Password Login)

Private Sub Form_Load()

Form1.Visible = False

sifre = InputBox("Şifre:", "Giriş", "")

If sifre = "123456" Then

Form1.Show

Else

MsgBox "Şifre yanlış!"

End

End If

End Sub

Visual Basic 6.0 - Form Boyutlandırma (Form Size)

Private Sub Command1_Click()

Form1.Width = Text1.Text

Form1.Height = Text2.Text

End Sub

Visual Basic 6.0 - İf , Else

Private Sub Command1_Click()

If Text1.Text > "44" Then

MsgBox "Geçtin"

Else

MsgBox "Kaldın"

End If

End Sub