Public Sub LoadUnit(ByVal ID As Integer, ByVal Name As String, ByVal Team As _
  Integer)
        VName = Name
        VID = ID
        VTeam = Team
        Dim PicBox As New PictureBox
        PicBox.Name = ID & "Pic"
        AddHandler PicBox.Click, AddressOf PicBoxClick
        VPicBox(VID) = PicBox
        'Soldat
        If Name = "Rekruten" Then
            Me.UpdatePic(My.Resources.Rekruten)
            VBewegung = 400
            VGröße = 200
        ElseIf Name = "Paladin" Then
            Me.UpdatePic(My.Resources.Paladin)
            VBewegung = 400
            VGröße = 200
        End If
        'PicBox der Einheit erstellen
        PicBox.Location = New System.Drawing.Point(0, 0)
        PicBox.Visible = True
        PicBox.Width = VGröße
        PicBox.Height = VGröße
        PicBox.SizeMode = PictureBoxSizeMode.StretchImage
        Form1.Controls.Add(PicBox)
    End Sub
 
    Public Sub PicBoxClick(ByVal Sender As Object, ByVal e As EventArgs)
        VAktiv = True
        Form1.Aktiv = Me
        MoveControl.Show()
    End Sub