Membuat Penghitung Persegi Panjang Dengan VB

Ente Dapat Membuat Penghitung Dengan Cara
Copy Ni Script:
Private Sub cmdHitung_Click()
If (Text1.Text = "") Or (Text2.Text = "") Then
MsgBox "Masukkan data terlebih dahulu."
ElseIf (Text1.Text <>
MsgBox "Panjang harus lebih besar dari lebar"
Else
Text3.Text = Text1.Text * Text2.Text
End If
End Sub

Private Sub Form_Load()
Text3.Locked = True
End Sub
Sebelumnya Ente Mesti Bikin Form Baru Paste Script-nya
Sekian.....