Private Sub CommandButton1_Click()

    목록이동 ListBox1, ListBox2, 전체이동:=False
    
    Label2.Caption = "개수 : " & ListBox1.ListCount
    Label4.Caption = "개수 : " & ListBox2.ListCount

End Sub

Private Sub CommandButton2_Click()

    If ListBox1.ListCount > 0 Then

        목록이동 ListBox1, ListBox2, 전체이동:=True
        
        Label2.Caption = "개수 : " & ListBox1.ListCount
        Label4.Caption = "개수 : " & ListBox2.ListCount

    End If

End Sub

Private Sub CommandButton3_Click()

    목록이동 ListBox2, ListBox1, 전체이동:=False
    
    Label2.Caption = "개수 : " & ListBox1.ListCount
    Label4.Caption = "개수 : " & ListBox2.ListCount

End Sub

Private Sub CommandButton4_Click()

    If ListBox2.ListCount > 0 Then

        목록이동 ListBox2, ListBox1, 전체이동:=True
        
        Label2.Caption = "개수 : " & ListBox1.ListCount
        Label4.Caption = "개수 : " & ListBox2.ListCount

    End If

End Sub