e.g.
File:f1.vb
Public Interface I1
Sub setMsg()
Function getMsg() As String
End Interface
File:f2.vb
Partial Public Class C1
Implements I1
End Class
File:f3.vb
Partial Class C1
Partial Private Sub myTestFunc()
End Sub
End Class
File:f4.vb
Partial Public Class C1
Public Sub setMsg() Implements I1.setMsg
------------
-------------
End SubEnd Class
File:f5.vb
Partial Public Class C1
Public Function getMsg() As String Implements I1.getMsg
------------
-------------
End Function
End ClassFile:f6.vb
Public Class C1
Private Sub myTestFunc()
------------
-------------
End Sub
End Class
reference:
http://www.4guysfromrolla.com/articles/071509-1.aspx