'Auf dem Formular eine Listbox für Monatsauswahl erstellen
Dim WithEvents Months As New ListBox With {.Parent = Me}
 
'Im Load-Event der Form diese Listbox füllen
'(Geht auch direkt per Rückgriff auf die entsprechende Enumeration)
For i As Integer = 1 To 12
   months.Items.Add(DateAndTime.MonthName(i))
Next i
 
'Im Listbox-Event die Graphik anfordern
Private Sub Months_SelectedIndexChanged(sender As Object, _
    e As EventArgs) Handles Months.SelectedIndexChanged
 
    Dim lbo As ListBox = DirectCast(sender, ListBox)
    if lbo.selectedindex >= 0 then _ 
       Getfrequencies(2017, lbo.SelectedIndex + 1)
End Sub
 
 
'So muß die gerufene Methode deklariert sein
Private Sub getfrequencies(ByVal year As Integer, mnth As Integer)
   'Linq-Code etc.       
End Sub