Imports System.Windows.Forms
Module Module1
    Public Function Multiple(ByVal a As Integer, ByVal b As Integer) As String
        If a <> 0 Then
            If (b Mod a = 0) Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If
    End Function

    Sub Main()
        Dim x, y As Integer
        Dim output As String
        x = InputBox("請輸入第一個數", "輸入對話框")
        y = InputBox("請輸入第二個數", "輸入對話框")
        output = Multiple(x, y)
        MessageBox.Show(output)
    End Sub

End Module