Private Sub frmbrowser_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
            Anderessub()
    End Sub
 
    Public Sub Anderessub()
            lstdir.Items.Add("test")
    End Sub