Public Class Form1
 
    Dim pic_weiter As New PictureBox
    Dim pic_menue As New PictureBox
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        With pic_weiter
            .Name = "pic_weiter"
            .BackColor = Color.FromArgb(88, 77, 66)
 
            .Parent = Me
            .Parent.Controls.Add(pic_weiter)
 
            .Anchor = AnchorStyles.Top And AnchorStyles.Right
            AddHandler .MouseMove, AddressOf hovereffekt
            AddHandler .MouseLeave, AddressOf leaveeffekt
        End With
 
        With pic_menue
            .Name = "pic_menue"
            .BackColor = Color.FromArgb(88, 77, 66)
 
            .Parent = Me
            .Parent.Controls.Add(pic_menue)
 
            .Anchor = AnchorStyles.Top And AnchorStyles.Right
            AddHandler .MouseMove, AddressOf hovereffekt
            AddHandler .MouseLeave, AddressOf leaveeffekt
        End With
 
    End Sub
 
 
 
 
 
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        pic_weiter.Size = New Size(150, 150)
        pic_weiter.Location = New Point(Me.Width - pic_weiter.Width, 0)
 
        pic_menue.Size = New Size(150, 150)
        pic_menue.Location = New Point(Me.Width - pic_weiter.Width - _
          pic_menue.Width, 0)
    End Sub
 
 
 
 
    Private Sub hovereffekt(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        pic_weiter.BackColor = Color.FromArgb(0, 77, 66)
    End Sub
 
 
 
 
 
    Private Sub leaveeffekt(ByVal sender As Object, ByVal e As System.EventArgs)
        pic_weiter.BackColor = Color.FromArgb(88, 77, 66)
    End Sub
 
 
 
End Class

Gru?

RollingStones