|
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click CALCULATE(5) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click CALCULATE(7, 4) End Sub Sub CALCULATE(ByVal X As Int16) MsgBox(X) End Sub Sub CALCULATE(ByVal X As Byte, ByVal Y As Int16) MsgBox(X + Y) End Sub End Class |