please help me in Private Sub bt1_Click()
please
pleaaaaaaaaaaaaaaaaaaase
compile error:
Method or data member not found
Private Sub balance_Click()
Dim sc As Single
Dim sd As Single
sc = 0
sd = 0
For i = 0 To listcr.ListCount - 1
sc = sc + CSng(List.List(i))
Next i
For j = 0 To listde.ListCount - 1
sd = sd + CSng(List.List(j))
Next j
totcr.Caption = sc
totde.Caption = sd
totb = sc - sd
End Sub
Private Sub bt1_Click()
If opt1.Value = True Then
listcr.AddItem (t1.Text)
listde.AddItem ("0")
Else
listcr.AddItem (t1.Text)
listcr.addltem ("0")
End If
End Sub
Private Sub bt2_Click()
listcr.RemoveItem (listcr.ListCount - 1)
listde.RemoveItem (listde.ListCount - 1)
balance_Click
End Sub
Private Sub bt3_Click()
End
End Sub
Private Sub Form_Load()
bt1.Enabled = False
bt2.Enabled = False
End Sub
Private Sub t1_Change()
If t1.Text <> "" Then
bt1.Enabled = True
bt2.Enabled = True
End If
End Sub
Private Sub t1_validate(cancel As Boolean)
If Not IsNumeric(t1.Text) Then
cancel = True
Else
cancel = False
End If
End Sub
picture in error
http://www.daniweb.com/forums/attachment.php?attachmentid=13905&stc=1&d=1267662518