Private Sub Command1_Click()
End
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
StatusBar1.Panels(3).Text = "?u an bir tu?a bas?l?"

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
StatusBar1.Panels(3).Text = "Tu? b?rak?ld?"

End Sub

Private Sub Form_Load()

StatusBar1.Panels(1).Style = sbrText
StatusBar1.Panels(1).AutoSize = sbrContents
StatusBar1.Panels(1).Text = "?u an text kutusu dolu"
StatusBar1.Panels.Add
StatusBar1.Panels(2).Style = sbrText
StatusBar1.Panels(2).AutoSize = sbrContents
StatusBar1.Panels(2).Text = "?u an Option1 i?aretli"
StatusBar1.Panels.Add
StatusBar1.Panels(3).Style = sbrText
StatusBar1.Panels(3).AutoSize = sbrContents
KeyPreview = True


End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3).Text = "Mouse form üzerinden geçiyor"

End Sub

Private Sub Option1_Click()
StatusBar1.Panels(2) = "?u an option1 i?aretli"
End Sub

Private Sub Option1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3) = "Mouse option1 üzerimden geçiyor"
End Sub

Private Sub Option2_Click()
StatusBar1.Panels(2) = "?u an option2 i?aretli"
End Sub

Private Sub Option2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3) = "Mouse option2 üzerimden geçiyor"

End Sub

Private Sub Option3_Click()
StatusBar1.Panels(2) = "?u an option3 i?aretli"
End Sub

Private Sub Option3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3) = "Mouse option3 üzerimden geçiyor"

End Sub

Private Sub StatusBar1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3) = "Mouse statusbar1 üzerimden geçiyor"

End Sub

Private Sub Text1_Change()
If Len(Text1) = 0 Then
StatusBar1.Panels(1) = "?u an text kutusu bo?"
Else
StatusBar1.Panels(1) = "?u an text kutusu dolu"

End If
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(3) = "Mouse text1 üzerimden geçiyor"

End Sub