first Make sure that xDatesLabel is ReadOnly and has vertical scrollbars.
Remove the listbox.
Then any lines that contain references to the listbox. (the ones with the errors)
Add this event code
Private Sub xDatesLabel_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles xDatesLabel.MouseClick Dim line As Integer = -1 If e.Button = Windows.Forms.MouseButtons.Left Then ' Find out which text line the mouse click was on. line = Me.xDatesLabel.GetLineFromCharIndex(Me.xDatesLabel.GetCharIndexFromPosition(e.Location)) End If If line <> -1 Then ' Display lotto numbers Me.xLbl_Lotto.Text = _ Lottos(line).Number(0) & " " & _ Lottos(line).Number(1) & " " & _ Lottos(line).Number(2) & " " & _ Lottos(line).Number(3) & " " & _ Lottos(line).Number(4) End If End Sub
And cha-ching!(VB.Net )
mmmmmmm Never made a Label 'Read Only' and didn't know scrollbars could be added to a label. I'm looking to find, but don't see where their at.
The control named xDatesLabel is actually a Textbox.
Okay text box is up..
How do I make the text box 'Read Only'?