vba excel

UserForm1.Frame1.Visible = False/True 1/0 - ukrywa ramkę(frame1)

MsgBox UserForm2.ListBox1.Value

---------------------------------------------------------------------------------------------------

Private Sub CommandButton1_Click()
If IsNumeric(Range("a1").Value) = True Then
Range("a1").Value = Range("a1").Value + 1        }-zlicza kliknięcia przycisku do komórki a1
End If
End Sub
********************************************************************************************************************
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox UserForm2.ListBox1.Value                                       }-wyświetla w okienku dwukrotnie klikniętą wartość z listy
End Sub
*********************************************************************************************************************