Public Class Form1
 
    Private pic_weiter As New PictureBox
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        With pic_weiter
            .Name = "pic_weiter"
            .Visible = True
            .BackColor = Color.FromArgb(88, 77, 66)
            .Size = New Size(100, 100)
            .Parent = Me
            .Parent.Controls.Add(pic_weiter)
        End With
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        pic_weiter.Location = New Point(Me.Width - pic_weiter.Width, 0)
    End Sub
 
End Class