STBAR HATASI ALIYORUM LOGIN FORM DEGERLİ HOCALARIM

[tufan18]

Option Explicit
Public islem As String
Dim hak As Byte '0 ile 255 kadar değer

Private Sub btnGiris_Click()
If txtKullanıci.Text = Sheets("Ayarlar").Range("B1") And txtSifre.Text = Sheets("Ayarlar").Range("B2") Then
  stBar.Panels(5).Text = "Giriş Onaylandı..."
   Application.Wait Now + TimeValue("00:00:02")


   Unload frmlogin
   frmAnaForm.Show
  Exit Sub
Else
   hak = hak + 1
  stBar.Panels(4).Text = hak
   txtKullanıci = ""
   txtSifre = ""
   On Error Resume Next
   txtKullanıci.SetFocus
   If hak = 3 Then btnvazgec_Click
   End If
End Sub

Private Sub btnvazgec_Click()
Unload Me
Application.ActiveWorkbook.Save
Application.Quit
End Sub

 

[tufan18]

değerli hocalarım burda stbar hatası veriyor login form