Private Sub Command1_Click() If List1.Text = "" Then MsgBox "你还没有选择呢" Exit Sub End If Print List1.TextEnd Sub
