Private Buttons_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click MsgBox(sender.Text) End Sub
' Object 型には、どんなものでも入れられる Dim a As Object = PictureBox1 Dim b As Object = 123 Dim c As Object = "abc"
' a も b も Object 型。この場合、.CreateGraphics は IntelliSense に現れない。 Dim g1 As Graphics = a.CreateGraphics() 'a は PictureBox1 なので、コレは呼び出せる Dim g2 As Graphics = b.CreateGraphics() 'b は Integer なので、実行時にエラーとなる