Excel VBA Listbox

[risk32]

Hello.
I am having a problem with Excel VB. I'm trying to use the value of items in a listbox to manipulate a caption to a label. Any suggestions? I haven't tried to use index, and frankly I don't know how.

Here's what' I've started with:
With lbDay1
.AddItem "01"
.AddItem "02"
.AddItem "03"
.AddItem "04"
.AddItem "05"
.AddItem "06"
.AddItem "07"
.AddItem "08"
.AddItem "09"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
End With
........
Private Sub lbDay1_Click()
lbDay1.Value = lblLink2.Caption
End Sub

[MikeTheBike]

Hello.
I am having a problem with Excel VB. I'm trying to use the value of items in a listbox to manipulate a caption to a label. Any suggestions? I haven't tried to use index, and frankly I don't know how.

Here's what' I've started with:
With lbDay1
.AddItem "01"
.AddItem "02"
.AddItem "03"
.AddItem "04"
.AddItem "05"
.AddItem "06"
.AddItem "07"
.AddItem "08"
.AddItem "09"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
End With
........
Private Sub lbDay1_Click()
lbDay1.Value = lblLink2.Caption
End Sub

Option Explicit
 
Private Sub UserForm_Initialize()
    With lbDay1
        .AddItem "01"
        .AddItem "02"
        .AddItem "03"
        .AddItem "04"
        .AddItem "05"
        .AddItem "06"
        .AddItem "07"
        .AddItem "08"
        .AddItem "09"
        .AddItem "10"
        .AddItem "11"
        .AddItem "12"
        .AddItem "13"
        .AddItem "14"
        .AddItem "15"
End With
 
End Sub
 
Private Sub lbDay1_Click()
    lblLink2.Caption = lbDay1
End Sub
 

??

MTB

[risk32]

More coding might be of some help... Do you know how to add pictures to this?

Private Sub cmdBack_Click()
MultiPage1.Value = 0
End Sub

Private Sub cmdNext_Click()
MultiPage1.Value = 1
End Sub

Private Sub cmdGenerate_Click()
MultiPage1.Value = 2
lblLink = "\\yofs13\374OG\36AS\Asgard_data\data\Duty Desk\Electronic Boards Info\Schedule Slides\2008\"
End Sub

Private Sub Form_Load()
lblAirfield.SetFocus
End Sub

Private Sub txtYear_click()
txtYear.MaxLength = 2
If txtYear = "" Then
MsgBox "Please enter a year"
txtYear.SetFocus
End Sub

Private Sub cmdGo_Click()
Shell ("C:\Program Files\Microsoft Office\OFFICE12\POWERPNT.EXE " & Chr(34) & lblLink.Caption & Chr(34))
End Sub

Private Sub lbDay1_Click()
lbDay1.Value = lblLink2.Caption
End Sub

Private Sub optAirfield_Click()
If optAirfield.Value = True Then
MultiPage1.Value = 2
End If
lblLink = "\\yofs13\374OG\36AS\Asgard_data\data\Duty Desk\Electronic Boards Info\Schedule Slides\2008\INFO & STATUS\Info And Status.ppt"
lblLink = lblLink.Caption
End Sub

Private Sub optSched_Click()
If optSched.Value = True Then
MultiPage1.Value = 1
With lbDay1
.AddItem "01"
.AddItem "02"
.AddItem "03"
.AddItem "04"
.AddItem "05"
.AddItem "06"
.AddItem "07"
.AddItem "08"
.AddItem "09"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
End With
With lbDay2
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
.AddItem "20"
.AddItem "21"
.AddItem "22"
.AddItem "23"
.AddItem "24"
.AddItem "25"
.AddItem "26"
.AddItem "27"
.AddItem "28"
.AddItem "29"
.AddItem "30"
.AddItem "31"
End With
With lbMonth
.AddItem "January"
.AddItem "February"
.AddItem "March"
.AddItem "April"
.AddItem "May"
.AddItem "June"
.AddItem "July"
.AddItem "August"
.AddItem "September"
.AddItem "October"
.AddItem "November"
.AddItem "December"
End With
End If

End Sub