Рет қаралды 1,052
Microsoft Visual Basic 6.0 :oceanofexe.com/...
Program:
Dim l As Variant
Dim s As String
Private Sub add_Click()
s = InputBox("Enter the name to add")
l = l + 1
Load vetri(l)
vetri(l).Caption = s
End Sub
Private Sub delete_Click()
If l = 0 Then
MsgBox "Cannot delete"
Else
Unload vetri(l)
l = l - 1
End If
End Sub
Private Sub exit_Click()
End
End Sub