โทษทีครับลืมรายละเอียด Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) MsgBox("Under Construction", MsgBoxStyle.OkOnly) End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) MsgBox("Under Construction", MsgBoxStyle.OkOnly) End Sub Private Sub cal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cal.Click p.Text = (9.81 * eff.Text * q.Text * h.Text) / 100 End Sub
Private Sub clr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clr.Click eff.Text = "" q.Text = "" h.Text = "" p.Text = "" eff.Focus() End Sub End Class