Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then Call CreeContext
End Sub
Private Sub UserForm_Initialize()
Dim var
With ListBox1
.ColumnCount = 3
.ColumnWidths = "100;100;100"
var = Sheets("test").Range("a1:c12")
.List() = var
End With
End Sub