(Module側) 
Module Module1 
    Public Sub Main() 
        Dim dt As Date 
 
        Console.WriteLine(Now.To28HourString()) 
 
        'dt = #12/31/2008 3:59:59 AM# 
        dt = #3:59:59 AM# 
        Console.WriteLine(dt.To28HourString()) 
 
        'dt = #12/31/2008 4:00:00 AM# 
        dt = #4:00:00 AM# 
        Console.WriteLine(dt.To28HourString()) 
    End Sub 
 
 
    <Extension()> _ 
    Public Function To28HourString( _ 
     ByVal dt As Date) As String 
        Return ToDiffHourString(dt, 4) 
    End Function 
 
    <Extension()> _ 
    Private Function ToDiffHourString( _ 
     ByVal dt As Date, ByVal DiffHour As Byte) As String 
        Return String.Format( _ 
         CultureInfo.InvariantCulture, _ 
         "{1:00}:{0:mm}", _ 
         dt - New TimeSpan(DiffHour, 0, 0), _ 
         If(dt.Hour >= DiffHour, dt.Hour, dt.Hour + 24)) 
    End Function 
End Module 
 
(Form側) 
nowTime = Format(Module1.To28HourString(Now)) 
 
とする事でうまくいきました。 
皆さん、本当にありがとうございましたm(__)m