Clicking on anywhere in a picturebox and move it around the form

Private Sub StudentNameLBL1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    
    If Button = vbLeftButton Then
        Xx = x
        yy = y
        Container1.MousePointer = vbSizeAll
    End If
End Sub
 
Private Sub StudentNameLBL1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbLeftButton Then
        With Container1
            .Left = .Left - (Xx - x)
            .Top = .Top - (yy - y)
        End With
    End If
End Sub
 
Private Sub StudentNameLBL1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
With Container1
    Container1.MousePointer = vbDefault
    If Val(StudentNum.Text) <= 19 Then
                 If (.Top > 3000 And .Top < 6240) And (.Left > 3370 And .Left < 7200) Then
                    If AttendanceV3.LanguageTXT.Text = "EN" Then
                     Message2.Show
                     Message2.StudentChosenTXT.Text = "1"
                     StudentChosenTXT.Text = "1"
                     StudentNameTXT.Text = StudentNameLBL1.Caption
                    Call WhenStudentSignsInEN
                    Container1.Visible = False
                    
                    End If
                    
                     If AttendanceV3.LanguageTXT.Text = "FR" Then
                     MessageFR.Show
                     MessageFR.StudentChosenTXT.Text = "1"
                     StudentChosenTXT.Text = "1"
                     StudentNameTXT.Text = StudentNameLBL1.Caption
                    Call WhenStudentSignsInFR
                    Container1.Visible = False
                    End If
                    
                 End If
    End If
    
        If Val(StudentNum.Text) >= 20 Then
                 If (.Top > 3000 And .Top < 6240) And (.Left > 4560 And .Left < 8280) Then
                    If AttendanceV3.LanguageTXT.Text = "EN" Then
                     Message2.Show
                     Message2.StudentChosenTXT.Text = "1"
                     StudentChosenTXT.Text = "1"
                     StudentNameTXT.Text = StudentNameLBL1.Caption
                    Call WhenStudentSignsInEN
                    Container1.Visible = False
                    
                    End If
                    
                     If AttendanceV3.LanguageTXT.Text = "FR" Then
                     MessageFR.Show
                     MessageFR.StudentChosenTXT.Text = "1"
                     StudentChosenTXT.Text = "1"
                     StudentNameTXT.Text = StudentNameLBL1.Caption
                    Call WhenStudentSignsInFR
                    Container1.Visible = False
                    End If
                    
                 End If
    End If
 End With
End Sub