Public Sub cmdDateiÖffnen_Click()
 ' wird im "CommonDialog" auf "Abbrechen" geklickt,
 ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
  On Error Resume Next
 With FrmSolarpanel.CommonDialog1
  .CancelError = True
  .Filter = "Lst Dateien (*.lst)|*.lst"
  FrmSolarpanel.CommonDialog1.ShowOpen
  ini_file = FrmSolarpanel.CommonDialog1.FileName
 End With

Private Sub TmrStatus_Timer()
 ' API Schnittstelle, notwendiges modul INI_FILES, hier werden die Daten aus 
 ' der Datei ausgelesen
 FrmSolarpanel.Txtwindrichtung.Text = INIGetValue(ini_file, "wind_direction", _
   "name") & "  " & INIGetValue(ini_file, "wind_direction", "deg") & "°"
End Sub

Public Sub cmdautostarten_Click()
 ' Abfrage aktiviert den Timer bzw. deaktiviert Ihn, timer befindet sich auf 
 ' Frmoption
 If cmdautostarten.Caption = "Abfrage starten" Then
   cmdautostarten.Caption = "Abfrage Beenden"
   FrmOption.TmrStatus.Enabled = True
 Else
  cmdautostarten.Caption = "Abfrage starten"
  FrmOption.TmrStatus.Enabled = False
  Txtwindrichtung.Text = "n/a"
  Txtwindstaerke.Text = "n/a"
  Txtdatum.Text = "n/a"
  Txtuhrzeit.Text = "n/a"
 End If
End Sub

If FrmSolarpanel.CommonDialog1.ShowOpen = True Then
  filestatus = 1
Else
  filestatus = 0
End If