Private Sub cmdButton_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdButton.Click
          Ausloesen
end Sub
 
Private Sub Ausloesen()
          Dim X as integer
          X  =  1 + 2
end Sub

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
MFG: BiSoN

Es gibt nur zwei unverr?ckbare Weisheiten:
1. Der Computer n?tzt dem Menschen
2. Die Erde ist eine Scheibe

http://t00ltime.kilu.de/