Jonggan
Const a As String = "Nasi Putih"
Dim b, d As String
Private Sub cmdbersih_Click()
Label4.Caption = ""
Combo1.Text = "Pilih Sayur"
End Sub
Private Sub cmdkeluar_Click()
If MsgBox("Ingin Keluar dari Form?", vbOKCancel + vbInformation, "Info") = vbOK Then
Unload Me
Else
MsgBox "Batal Keluar"
End If
End Sub
Private Sub cmdpilih_Click()
b = InputBox("Masukkan nama lauk :", "")
End Sub
Private Sub cmdproses_Click()
d = a + ", " + b + ", " + Combo1.Text + "," + List1.Text
Label4.Caption = d
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Form_Load()
Label4.Font = "chiller"
Label4.FontSize = 20
Combo1.Text = "Pilih Sayur"
Combo1.AddItem ("Sop Ayam")
Combo1.AddItem ("Sop Babat")
Combo1.AddItem ("Bayam")
List1.AddItem ("Es Teh")
List1.AddItem ("Es Jeruk")
'Label1.Caption = "Text Berjalan"
'Timer1.Interval = "80"
End Sub
Private Sub Timer1_Timer()
Me.Width = Me.Width + 100
If Me.Width >= 7000 Then
Timer1.Enabled = False
End If
End Sub
Posted in: Visual Basic
