Visual Basic

Private Sub Button1_Click(sender As Object, e As EventArgs)
    Button2_Click(Nothing, EventArgs.Empty)
    Button3_Click(Nothing, EventArgs.Empty)
End Sub

I are Troll

Private Sub ClickAllButtons(sender As Object) Handles Button1.Click, _
                            Button2.Click, Button3.Click

  Dim btn As Button = Nothing

  If TypeOf sender Is Button Then
      btn = DirectCast(sender, Button)
      If btn.Name = "Button1" Then

        callButton1Stuff()
        callButton2Stuff()
        callButton3Stuff()

      ElseIf btn.Name = "Button2" Then

        callButton2Stuff()

      Else

        callButton3Stuff()

      End

  Else

    ' Maybe a good idea to do something here.
    Exit Sub

  End

shaynoy wrote:

In Form1, I have a Picturebox (Name=PictureBox1)

shaynoy wrote:

Dim MyA As New A(PictureBox1.Width, PictureBox1.Height)
MyA.Location = New System.Drawing.Point(150, 150)
MyA.BackColor = Color.Red
PictureBox1 = MyA

This is a bit dumb. What you need to do, is either change your picturebox to be a ClassA,

...or you need to just create a picturebox and add it to the Controls collection of the form.

shaynoy wrote:

I have an alternative to solve the problem but I would like to understood the problem above.

I are Troll

shaynoy wrote:

In the first code PictureBox alrady exists so I do not have to add it.

PictureBox1 = MyA

I are Troll