
Form1
Private
Sub exit_Click()
End
End
Sub
Private
Sub form_2_Click()
Form1.Hide
form2.Show
End
Sub
Private
Sub Form_Load()
Me.Width
= 10
End
Sub
Private
Sub form2_Click()
Form1
End
Sub
Private
Sub Timer1_Timer()
Me.Width
= Me.Width + 100
tengah
If
Me.Width > 6200 Then
Timer1.Enabled
= False
tengah
End
If
End
Sub
Public
Sub...