PROGRAM MENCARI LUAS PERSEGI PANJANG

Private Sub Command1_Click()
txthasil.Text = txtpanjang.Text * txtlebar.Text
Command2.Enabled = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
txtpanjang.Text = ""
txtlebar.Text = ""
txthasil.Text = ""
txtpanjang.SetFocus
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub txtlebar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If

End Sub

Private Sub txtpanjang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtlebar.SetFocus
End If
End Sub