Private Sub h_Click()
If (g1.Text = "" Or t1.Text = "") Then
Label14 = ("Yer Cekimi Kuvvetine Veya Zamana Bir Değer Girmedin.")
Label13 = ("")
Beep
Else
h1.Text = (Int(g1.Text) * Int(t1.Text) * Int(t1.Text)) / 2
End If
End Sub

Orneğin burda işlem sonuclanmadı ise

Diğer bir formulu uygalacak....
__________________