Private frmForm As New Form
Private pbPicture As New PictureBox
 
Private Sub showForm()
 
  With frmForm
    .FormBorderStyle = FormBorderStyle.None
    .ShowInTaskbar = False
    .Size = New Point(150,0)
    .StartPosition = FormStartPosition.Manual
    .TopMost = True
    .Location = New Point(1000,500)
  End With
 
  With pbIcon
    .BackgroundImage = My.ressource.picture
    .BackgroundImageLayout = ImageLayout.Zoom
    .BorderStyle = BorderStyle.None
    .Size = New Point(30, 30)
    .Location = New Point(5, 5)
    .Visible = True
End With
 
frmForm.Controls.Add(pbIcon)
 
'Bis hier hat die Form eine Höhe von 0...
 
frmForm.show()
 
'...ab hier dann eine Höhe von 38
 
End Sub